00100	BEGIN INTEGER X,M,N; LABEL A, D,B;
00150	B:
00200	OUTSTR("
00300	M = "); M←CVD(INCHWL); N←0;X←0;
00400	A:
00500	IF M=1 THEN GO TO D;
00600	IF M MOD 2 =0 THEN BEGIN M←M%2; GO TO A END;
00700	M← 3*M+1;X←IF X>M THEN X ELSE M; N←N+1; GO TO A;
00800	D:
00900	OUTSTR(CVS(N)&" "&CVS(X)); GO TO B;
01000	END;